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--File: WManControl.mesa 

—Edited by Sandman October 7, 1977 9:14 AM 

DIRECTORY 

AUoDefs: FROM "altodefs". 
ControlDefs; FROM "controldef s'\ 
DoubleOefs: FROM "doubledefs" , 
SegmentDefs: FROM "segmentdefs". 
SystemOefs: FROM "systemdef s" , 
StringDefs: FROM "stringdef s" , 
StreamOefs: FROM "streamdef s" , 
InlineDefs: FROM "in! inedef s" , 
lODefs: FROM "iodefs", 
KeyDefs: FROM "keydefs", 
MenuDefs: FROM "menudefs", 
RectangleDefs: FROM "rectangledef s", 
WindowDefs: FROM "windowdefs" , 
WManagerDefs: FROM "wmanagerdefs" ; 

DEFINITIONS FROM MenuDefs, StreamOefs, RectangleDefs, WindovwDefs, WManagerDefs; 

WManControl: PROGRAM 

IMPORTS DoubleOefs, SegmentDefs, SystemDefs, StringDefs, StreamOefs, RectangleDefs, 

WindowDefs, WManagerDefs 
EXPORTS WManagerDefs 

SHARES WManagerDefs, StreamOefs. MenuDefs = 
BEGIN 

WMState: WMDataHandle; 

--external proc 

--global data 

CursorA, CursorB. CursorC, CursorD, CursorE, 

CursorF, CursorG. CursorH. Cursorl: ARRAY[0..15] OF INTEGER; 

-- Windov/ Manager Main Control Routine 

WindowManager: PUBLIC PROCEDURE = 
BEGIN OPEN WMState; 
-- Declare Locals 
X, y,i: INTEGER; 
k: Keyset; 
char: UNSPECIFIED; 
mousewindow: WindowHandl e; 
buttons: AMouseButton; 

cw: WindowHandle ♦• GetCurrentDisplayWindow[]; 
ds: DisplayHandle; 
-- check if need to service KeyStream 

IF cw.ks # defauUks AND NOT cw. ks . endof [cw. ks] THEN 

FOR i IN [0. .maxscratch) DO ENABLE StreamOefs .StreamError => EXIT; 
IF scratchfiles[i] = cw.file THEN 
BEGIN 

ReadEdi tChar[ cw.ks . get[cw.ks] , cw] ; 
EXIT; 
END; 
ENDLOOP; 
cw ^ GetCurrentDisplayWindow[] : 
-- check if some part of cursor is in jump bar 

[x, y] <- CursorToRectangleCoords[cw. rectangle, xcursorloct, ycursorloct] ; 
IF x+slop > AND X <= JumpStrip + CursorXAdjus t[] 

AND y+slop > AND y-slop <= cw. rectangl e , ch THEN SetJumpStr ipe[cw, TRUE] 
ELSE SetJumpStripe[cw, FALSE]; 
-- check mouse buttons 
buttons ♦- GetMouseBu tton[] ; 
-- look at the mouse and flip from one to the other 

cw ^ GetCurrentO ispl ayWindow[ ! StreamOefs . StreamError => CONTINUE]; 
[mousewindow, x, y] <- f i ndOi sp 1 ayW i ndow[xcursor 1 oct , ycursorloct 

! StreamOefs. Slreamfrror => CONTINUE]; 
If cw it mousewindow AND mousewindow U NIL AND buttons if None THEN 
BfGTN 

Se tCurrentD ispl ayWindow[mousew indow 
! Segmen tDef s . Inval i dfP => 
BEGIN 

SetF i lerorWindow[mousew indow, mousewindow. name 
! SegmentDefs . Fi leNameError => 
BEGIN 
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Alt8rWindowType[mousewinciow, mousewindow.type, NIL]; 

CONTINUE; 

END 

]: 
RETRY; 
END 

OpenKeyStream[mousewindow.ks I StreamOefs.StreamError => CONTINUE]; 
END 
ELSE IF buttons = None THEN 
BEGIN 

IF useKeyset AND (k ♦- GetKeySetC]) j^ THEN 
SELECT k FROM 

IB => StuffSel[cw]; 
2B => PutChar[IOOefs.CR]; 

3B => BEGIN PutChar[IODefs.CR]; StuffSel [cw] ; END; 
4B => PutChar[IOOefs.ESC]; 
lOB => PutChar[IODefs.DEL]: 
20B => PutChar[IODefs.BS]; 
ENDCASE 
ELSE IF FL4Down[] THEN 

BEGIN StuffSel[cw]; WHILE FL4Down[] DO NULL ENDLOOP; END; 
END 
ELSE 
BEGIN 

THROUGH [0..700) DO NULL ENDLOOP; -- Debounce Mouse 
ButtonProcArray[GetMouseButton[]][cw, xcursorloct .ycursorloct 1 

StreamDefs.StreamError => CONTINUE]; 
END; 
END; 

ReadEditChar: PROCEDURE 

[char: CHARACTER, w: W 1ndowHand1e]= 
BEGIN 

--declare locals 
index: Streamlndex; 
fixup: BOOLEAN *• FALSE; 
firstchar: BOOLEAN *- TRUE; 
Ch: CHARACTER; 
controlA: CHARACTER = IC; 
controlH: CHARACTER = IOC; 
controlW: CHARACTER = 27C; 
controlQ: CHARACTER = 21C; 
Space: CHARACTER = 40C; 
--do editing like ReadEditString 
SELECT char FROM 

controlA, controlH => 
BEGIN 

IF w.ds.charx ^ leftmargin THEN 
BEGIN 

index ♦- Getlndex[w. f il e] ; 
w.eofindex ♦• index; 
index ♦- ModifyIndex[ index , -1]; 

IF Equal Index[w. select ion. rightindex, index] THEN 
BEGIN 

MarkSelection[w] ; 
fixup ♦■ TRUE; 
END; 
Setlndex[w. f i le, index]; 
ch <- w. file. get[w. fi le] ; 
StreamOefs .ClearDisplayChar[w. ds . ch] ; 
IF fixup TflEN 
BEGIN 

w. select ion . r ighLx *- w.ds.charx; 
index <- Modi fyTndex[ index , -1]; 
w. select ion . rightindex ♦- index; 
MarkSelect ion[w] ; 
fixup ♦- FALSE; 
END; 
END; 
END; 
controlW, controlQ => 
BEGIN 
DO 

If w.ds.charx = leftmargin THEN EXIT; 
index ^ Ge tlndex[w . f i 1 e] ; 
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index ♦• ModifyIndex[index, -1]; 

IF Equallndex[w. selection. rightindex, index] THEN 

BEGIN 

MarkSelection[w]; 

fixup ^ TRUE; 

END: 
Setlndex[w.f ile, index]; 
w.eofindex ♦• index; 
ch *• w.f ile. get[w. file 

! StreamError => EXIT]; 
IF ch = Space AND NOT firstchar THEN EXIT 

ELSE IF ch # Space THEN firstchar ♦• FALSE; 
StreamDefs.ClearDisplayChar[w.ds, ch]; 
ENDLOOP; 
IF fixup THEN 

BEGIN 

index ♦• Modi fylndex[index, -1]; 

w. selection, r ightindex *- index; 

w. selection. rightx ^ w.ds.charx; 

MarkSelection[w]; 

fixup ♦- FALSE; 

END; 
END; 
ENDCASE => 

MakeOrExtendSelection[w, char]; 
END; 

MakeOrExtendSelection: PROCEDURE[w: WindowHandle, char: CHARACTER] = 
BEGIN OPEN WMState; 
-- declare locals 
ds: DisplayHandle ♦• w.ds; 
sel: Selection; 

index: Streamlndex ♦• Getlndex[w. f ile]; 
-- now make/extend the current selection 

IF NOT ds.charx = w. sel ection . rightx OR Equal Index[originindex, index] THEN 
BEGIN --make this char the current selection 
w. ds . put[w.ds , char]; 
sel ♦• Selection[ 

leftx: ds.charx - ComputeCharWidth[char , ds.pfont], 

lef tl ine: ds . 1 ine, 

leftindex: , index. 

rightx: ds.charx , 

rightline: ds.line, 

rightindex: index 

]: 
END 
ELSE 

BEGIN -- extend it to include this char 
w. ds . put[w.ds , char]; 
sel ^ Selection[ 

leftx: w. selection . lef tx, 

leftline: w. select ion . lef tl ine, 

leftindex: w. sel ection. leftindex, 

rightx: ds.charx , 

righ tl ine: ds . 1 ine, 

rightindex: index 

]; 
END; 

MakeSelec t ion[w, Qsel]; 
END; 

SetJumpStripe: PUBLIC PROCFDURE[w: WindowHandle, flag: BOOLEAN] = 
BEGIN OPEN WMState; 
-- Declare Locals 

r: Rp tr = w. rectangle; 

y: yCoord; 

bytepos, eof: In! ineDef s . LongCARDINAL; 

barheight: INTEGER = r . ch-def auUl ineheight-2 ; 

barwidlh: INTEGER = lef tinarg i n-1 ; 

currentindex: Streamlndex; 

gray: GrayArray ^ [I25252B. 52525B, 125252B, 52525B]: 

gray array: GrayPtr = @gray; 

zeros: GrayArray ♦-[0,0,0,0]; 

zeroarray: GrayPtr = 0zeros; 
-- check If visible 

IF (w. rectangle. visible = FALSE) OR (w.file = NIL) THEN 
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RETURN; 
-- now set or reset state 
IF flag THEN 

BEGIN OPEN OoubleOefs; 

IF currentcursor = botharrow THEN RETURN; 

Se tCu rso r [ bo t harrow]; 

ButtonProcArray ♦- ScroHProcArray ; 

ClearBoxInRectang1e[r, 1, barwidth, defauUl ineheight +1, barheight, grayarray]; 

IF w.tempindex = nullindex 

THEN currentindex <- w.fileindex 
ELSE currentindex ^ w.tempindex; 
— compute position in file and paint(reset) position 
bytepos ♦• IF currentindex .byte=177777B THEN [0, 0] 

ELSE DAdd[ In lineDefs.LongMu1t[current index. page, AUoDefs .BytesPerPage] , 
LongCARDINAL[current index. byte, 0]]: 
eof <- IF w.eof index. byte = 177777B THEN [1, 0] 

ELSE DAdd [ In lineDefs.LongMuU[w. eof index, page, AUoOefs.BytesPerPage] , 
LongCARDINAL[w. eof index. byte, 0]]; 
y ♦- DDivide[DMultip1y[bytepos, LongCARDINAL[barheight , 0]], eof ]. quotient . lowbits; 
ClearBoxInRectangle[r, 3, barwidth-6, default! ineheight +1, y, zeroarray]; 
END 
ELSE 
BEGIN 

SetCursor[textpo inter] ; 
ButtonProcArray ♦- TextProcArray ; 

ClearBoxInRectangle[r, 1, barwidth, defaultl ineheight +1, barheight, zeroarray] 
END; 
END; 

GetMouseButton: PUBLIC PROCEDURE RETURNS[AMouseButton]« 
BEGIN 

RETURN[KeyDefs. Mouse. buttons]; 
END; 

GetKeySet: PUBLIC PROCEDURE RETURNS [KeySet]= 
BEGIN OPEN InlineDefs; 
n, keyvalues: KeySet <- 0; 
DO 

n ^ BITXOR[KeyDefs. Mouse. keyset. 37B]; 
IF n = THEN 
BEGIN 

THROUGH [0..200) DO NULL ENDLOOP; 
n <- BITXOR[KeyDefs. Mouse. keyset, 378]; 
END; 
IF n = THEN RETURN[keyval ues] ELSE keyvalues ♦- BITOR[keyvalues, n]; 
ENDLOOP; 
END; 

FL4Down: PROCEDURE RETURNS [BOOLEAN] = 
BEGIN OPEN KeyDefs; 
RCTURN[KeyDers.Keys.FL4 = down]; 
END; 

PutChar: PROCEDURE [c: CHARACTER]^ 
BEGIN OPEN WMState; 
derauUks.putback[defaultks, c]; 
END; 

StuffSel: PROCEDURE [w: WindowHandl e]= 
BEGIN OPEN WMState; 

s: STRING <- W i ndowDef s . Ge tSel ect ion[w] ; 
i: CARDINAL; 

FOR i DfCREASING IN [0 . . s . 1 eng th) DO def aultks . pu tback[def aultks . s[i]]; ENDLOOP; 
END: 

SetCursor: PUBLIC PROCEDURr[ type : CursorType] = 
BEGIN OPEN WMState; 
cursorpLr: POINTER; 
currentcursor <- type; 
cursorptr *- STLECT type FROM 

textpointer => BASE[CursorA] . 

arrow => BAST [Cur so rB] , 

bullseye => BASr[CursorC] , 

leftbutton => BASr[CursorD] , 

uparrow => BASE[CursorE] , 

downarrow => BASr[CursorF] , 
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botharrow => BASE[CursorG], 

norm => BASE[CursorH], 

hourglass => BASE[CursorI], 

ENDCASE => cursormap; 
InlineDefs.COPY[from: cursorptr, to: cupsormap, nwords: 16]; 
END; 

CursorXAdjust: PUBLIC PROCEDURE RETURNSCINTEGER] « 
BEGIN OPEN WMState; 
adjust: INTEGER ♦- 0; 
SELECT currentcursor FROM 

arrow => adjust ♦- 15; 

bullseye, uparrow, downarrow => adjust ♦- 8; 

botharrow, textpointer, leftbutton, hourglass, norm => NULL; 

ENDCASE => SetCursor[norm]; 
RETURN[adjust]; 
END; 

CursorToRectangleCoords: PUBLIC PROCEDURE [rectangle: Rptr, x: xCoord, y: yCoord] 
RETURNS[xCoord, yCoord] = 
BEGIN OPEN WMState; 

— refinements for sensitive points of each cursor 
X ♦• X + CursorXAdjust[] ; 
SELECT currentcursor FROM 

arrow, bullseye => y ♦• y + 8; 
downarrow => y ♦- y + 16; 
ENDCASE => NULL; 
-- convert cursor coordinates to window coordinates 
[x, y] ♦- CursorToRecCoords[rectangle, x, y]; 
RETURN[x. y]; 
END; 

NullProc: PUBLIC PROCEDURE[w: WindowHandle, x: xCoord. y: yCoord] « 
BEGIN 
RETURN; 
END; 

NoteNameError: PUBLIC PROCEDURE [wrWindowHandle, str: STRING] » 
BEGIN OPEN WMState; 
-- Declare Locals 
i: INTEGER; 
scratchstr: STRING; 
-- convert window into scratch and tell bad name 
IF w.type # scratch THEN 
BEGIN 

[scratchstr, i] *■ AssignScratchFi le[] ; 
Al terWindowType[w, scratch, scratchstr]; 
scratchf iles[i] ♦- w.file; 
SystemDefs . FreeHeapString[s cratch str] ; 
END; 
Wri teMessageString[w, str]; 
WriteMessageString[w, "Fi leNameError! "]; 
END; 

WriteMessageString: PUBLIC PROCEDURE [w:WindowHand1e , str: STRING] = 
BEGIN 
-- Declare Locals 

i: CARDINAL; 
-- write message 

FOR i IN [0. , str. length) DO 
w. ds . put[w.ds , str[i]]; 
FNDLOOP; 
w. ds .put[w. ds , 15B]; 
CND; 

AssignScratchFile: PUBLIC PROCEDURE RrTURNS[STRING , INTTGER] = 
BCGIN OPCN WMState; 
-- Declare Locals 

zero: CARDINAL = LOOPIIOLE[ ' 0] ; 
i: TNTCGFR; 
str: STRING: 
-- loop through array looking for a free one 
FOR i TN [0. .maxscratch) DO 
Tf scratchf iles[i] = NIL THEN 
BFGIN 
str ♦- Sys temDef s. Al locateHeapStr ing[8] ; 
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String08fs.AppendString[str, "Scratch"]; 
StringDefs.AppendChar[str, L00PHOLE[i+zero. CHARACTER]]; 
RETURWCstr, i]; 
END; 
ENDLOOP; 
END; 

Cursorlnit: PROCEDURE = 
BEGIN 
CursorA ♦- 

[lOOOOOB, 1400008. 160000B, 170000B, 174000B. 176000B, 177000B, 170000B, 154000B, 
114000B, 6000B. 6000B. 3000B, SOOOB. 1400B . 1400B] ; 
CursorB ^ 

[40B, 60B, 708, 74B, 1777768, 177777B, 1777768, 748, 70B, 608. 408, 0, 0, 0, 0, 0]; 
CursorC *• 

[37408, 177708. 600068, 1400038, 140003B, 1417038, 141703B. 140603B, 60006B, 340348. 
177708, 37408. 0. 0, 0. 0]; 
CursorD ^ 

[1777408, 1000408. 1352408. 1352408, 1352408. 1352408, 1352408, 1000408, 1000408, 
1000408, 1000408, 1000408. 100040B, 100040B. 1000408, 1777408]; 
CursorE ♦• 

[6008, 1700B. 77608, 377768, 1777778, 7760B, 77608, 7760B. 77608, 77608, 77608.77608, 
77608, 77608.77608, 77608]; 
CursorF ♦• 

[77603, 77608, 7760B.7760B, 7760B, 77608,77608, 77608, 77608,77608, 77608,1777778, 
377768. 77608, 17008, 6008]; 
CursorG ^ 
[6008, 17008, 77608, 377768, 1777778, 7760B, 77608. 77608, 77608, 77608, 77608, 
1777778, 377768, 77608. 1700B, 6008]; 
CursorH *- 

[37774B. 37774B. 340348. 34034B. 340348, 340348, 340348, 340348. 340348, 34034B, 
340348, 340348, 340348, 340348, 377748, 377748]; 
CursopI *• 

[1777778, ICOOOIB, 400028, 34034B, 171708, 76608, 37408, 17008, llOOB, 24408, 42208, 
106108, 217048, 47762B, 177777B, 1777778]; 
RETURN; 
EMD; 

-- initialization for wmanager 

InitConf iguration: PROCEDURE = 
BEGIN OPEN WManagerDefs; 

WMState ♦• SystemDefs . AnocateHeapNocle[SIZE[WMDataObject]] ; 
START WManSe1ection[WMState]; 
START WManWindows[WMState]; 
START WManPosition[WMState]; 
-- Double is started by use of the START Trap 
END; 

InitManager: PROCEDURE » 
BEGIN OPEN WMState; 
-- Declare Locals 
i: INTEGER; 

w: WindowHandle <- GetCurren tDispl ayWindow[] ; 
-- process and save currently extant windows 
FOR i IN [0. .4) DO 

windows[i] <- w; 

IF w.link = windows[0] THEN EXIT 

ELSE w ♦- w.l ink; 

ENDLOOP; 
FOR i IN [0. .maxscratch) DO 

sera tchf i les[i ] <- NIL; 

FNDLOOP; 
-- now init some stuff for later 
CursorInit[]; 

defaul tmapdata <- GetDef aul tB i tmap[] ; 
defaultks ♦- GelOefaul tKey[] ; 

[defaul tfont. defaul tl ineheight] <- GetDefaul tFont[]; 
null index *- Streamlndex[0,-1]; 
originindex ♦- StreamTndex[0, 0]; 
cufrentcursor ♦- textpointer; 
-- setup fxternal Button Procedures 
ButtonProcArray *- Tex tProcArray ; 
StreamDef s .SetIdleProc[W indowManager] ; 
END; 
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— MAIN BODY CODE 



InitConf iguration[]; 
InitManager[]; 

END. of wmancontrol 



